home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE23 / PZAZZDEM / PZAZZDEM.ZIP / PZDEMO / PZDTVIEW.PAS < prev   
Pascal/Delphi Source File  |  1997-03-03  |  4KB  |  132 lines
  1. unit Pzdtview;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, PZBPanel, PZShaded, StdCtrls, PZLabel, PZSpButt,
  8.   PZLView, PZTView, PZImList, Buttons;
  9.  
  10. type
  11.   TPZTreeViewForm = class(TForm)
  12.     HeaderPanel: TPZBitmapPanel;
  13.     PZShaded1: TPZShaded;
  14.     DescrPanel: TPZBitmapPanel;
  15.     PZLabel4: TPZLabel;
  16.     ResultsPanel: TPZBitmapPanel;
  17.     PZLabel2: TPZLabel;
  18.     PZLabel1: TPZLabel;
  19.     OutputPanel1: TPZBitmapPanel;
  20.     OutputPanel2: TPZBitmapPanel;
  21.     BackgroundCheck: TCheckBox;
  22.     Label1: TLabel;
  23.     PZLabel5: TPZLabel;
  24.     TreeView: TPZTreeView;
  25.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure FormDeactivate(Sender: TObject);
  28.     procedure Label1Click(Sender: TObject);
  29.     procedure BackgroundCheckClick(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   Furniture,Bedroom,Lounge,Dining :TPZTreeViewItem;
  33.     procedure FillTree;
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   PZTreeViewForm: TPZTreeViewForm;
  40.  
  41. implementation
  42.  
  43. Uses PZDMain;
  44.  
  45. {$R *.DFM}
  46.  
  47. procedure TPZTreeViewForm.FormCreate(Sender: TObject);
  48.  
  49. Begin
  50.   SetBounds(10,10,MainForm.ClientWidth-20,MainForm.ClientHeight-MainForm.MainPanel.Height-20);
  51.   HeaderPanel.Background.LoadBitmap('PZD_STONE');
  52.   DescrPanel.Background.LoadBitmap('PZD_STONE');
  53.   ResultsPanel.Background.LoadBitmap('PZD_STONE');
  54.   OutputPanel1.Background.LoadBitmap('PZD_STONE');
  55.   OutputPanel2.Background.LoadBitmap('PZD_STONE');
  56.   FillTree;
  57. End;
  58.  
  59. procedure TPZTreeViewForm.FillTree;
  60.  
  61.  
  62. Begin
  63.   With TreeView Do
  64.     Begin
  65.       Furniture:=AddItem(RootItem,'Furniture');
  66.       Bedroom:=AddItem(Furniture,'Bedroom');
  67.       AddItem(Bedroom,'Two drawer chest');
  68.       AddItem(Bedroom,'Three drawer chest');
  69.       AddItem(Bedroom,'Five drawer chest');
  70.       AddItem(Bedroom,'Dressing table');
  71.       AddItem(Bedroom,'Tallboy');
  72.       AddItem(Bedroom,'Wardrobe');
  73.       AddItem(Bedroom,'Ottoman');
  74.       Lounge:=AddItem(Furniture,'Lounge');
  75.       AddItem(Lounge,'Dutch dresser');
  76.       AddItem(Lounge,'TV cabinet');
  77.       AddItem(Lounge,'Nest of tables');
  78.       AddItem(Lounge,'Writing bureau');
  79.       AddItem(Lounge,'Tall bookcase');
  80.       AddItem(Lounge,'Sideboard');
  81.       AddItem(Lounge,'Occasional table');
  82.       AddItem(Lounge,'Magazine rack');
  83.       AddItem(Lounge,'Coffee table');
  84.       Dining:=AddItem(Furniture,'Dining room');
  85.       AddItem(Dining,'Dining table');
  86.       AddItem(Dining,'Pair of dining chairs');
  87.       AddItem(Dining,'Farmhouse table');
  88.       AddItem(Dining,'Solid pine dresser');
  89.       AddItem(Dining,'Solid pine sideboard');
  90.       AddItem(Dining,'Drop leaf table');
  91.       AddItem(Dining,'Bar chair');
  92.       AddItem(Dining,'Queen Anne dining table');
  93.       AddItem(Dining,'Buttefly table and chairs');
  94.   End;
  95. End;
  96.  
  97. procedure TPZTreeViewForm.FormClose(Sender: TObject;  var Action: TCloseAction);
  98.  
  99. Begin
  100.   Action:=caFree;
  101. End;
  102.  
  103. procedure TPZTreeViewForm.FormDeactivate(Sender: TObject);
  104. begin
  105.   Close;
  106. end;
  107.  
  108. procedure TPZTreeViewForm.Label1Click(Sender: TObject);
  109. begin
  110.   If BackgroundCheck.State=cbChecked Then
  111.     BackgroundCheck.State:=cbUnchecked
  112.   Else
  113.     BackgroundCheck.State:=cbChecked;
  114.   BackgroundCheck.SetFocus;
  115. end;
  116.  
  117. procedure TPZTreeViewForm.BackgroundCheckClick(Sender: TObject);
  118. begin
  119.   If BackgroundCheck.State=cbChecked Then
  120.     Begin
  121.       TreeView.Background.LoadBitmap('PZD_PARQUET');
  122.       TreeView.Font.Color:=clWhite;
  123.     End
  124.   Else
  125.     Begin
  126.       TreeView.Background.Bitmap.Assign(Nil);
  127.       TreeView.Font.Color:=clWindowText;
  128.     End;
  129. end;
  130.  
  131. end.
  132.